home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / bed / bah! / install2.script < prev    next >
Encoding:
Text File  |  1997-02-16  |  7.5 KB  |  320 lines
  1. ; $VER: BAH! Installer 1.0 (10.5.96)
  2. ; BAH! - by M&F (Mauro Fontana)
  3. ; Installer script by Marco Negri & M&F
  4. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  5.  
  6. (set sourcedir "")
  7.  
  8. (set dirname "BAH!")
  9. (set execname "BAH!")
  10. (set bguidir "libs")
  11. (set configdir "config")
  12. (set rexxdir "BED:rexx")
  13. (set dir2    "rexx/amigaguide")
  14. (set dir1 "rexx/HTML")
  15. (set dir3    "rexx/BAH")
  16.  
  17. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  18.  
  19. (if (= @language "english")
  20.     (
  21.         (set old_os_exit "BAH! required minimum OS version: 37\nYour current version: %ld.%ld\n\nBAH! cannot be installed")
  22.         (set target_prompt "Select location to put BAH! %ld.%ld:\nA directory named %s will be created")
  23.         (set exist_dir_prompt "The directory selected is\n%s\nDo you wish to install BAH! there ?")
  24.         (set same_version_prompt "The same version of BAH! is present\nVersion: %ld.%ld\nDo you want to re-install it ?")
  25.         (set same_version_exit "Same version already present !")
  26.         (set new_version_prompt "A newer version of BAH! is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nInstallation aborted !")
  27.         (set new_version_exit "Newer version already present !")
  28.         (set old_version_prompt "An older version of BAH! is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nDo you want to replace it ?")
  29.         (set old_version_exit "Older version not replaced !")
  30.         (set bgui_msg "BAH! requires \"bgui.library\" v??+ to run\n\n(\"bgui.library\" is Copyright (c) Jaba Development and Jan van den Baard)")
  31.         (set config_prompt "Select the config files to install:\n")
  32.  
  33.         (set replace_button "Replace")
  34.         (set abort_button "Abort")
  35.         (set install_there_button "Install BAH! there")
  36.         (set new_dir_button "Create a directory named %s")
  37.     )
  38. )
  39.  
  40.  
  41. ; - - - - Check BAH! version and revision - - - -
  42.  
  43. (complete 0)
  44.  
  45. (set new_vernum (getversion (tackon sourcedir "BAH!")))
  46. (set new_ver (shiftright new_vernum 16))
  47. (set new_rev (BITAND new_vernum 65535))
  48.  
  49. (set sys_vernum (getversion))
  50. (set sys_ver (shiftright sys_vernum 16))
  51. (set sys_rev (BITAND sys_vernum 65535))
  52.  
  53. ; - - - - Check system version and revision - - - -
  54.  
  55.  
  56. (set @default-dest "")
  57.  
  58. (if (< sys_ver 37)
  59.     (exit (old_os_exit sys_ver sys_rev))
  60. )
  61.  
  62. ; - - - - Ask for the target directory  - - - -
  63.  
  64. (set target
  65.     (askdir
  66.         (prompt (target_prompt new_ver new_rev dirname))
  67.         (default @default-dest)
  68.         (disk)
  69.         (help @askdir-help)
  70.     )
  71. )
  72.  
  73.  
  74. ; - - - - Check if the directory is already called BAH! - - - -
  75.  
  76.  
  77. (if (= dirname (fileonly target))
  78.     (if (= 1    (askchoice
  79.                     (prompt (exist_dir_prompt target))
  80.                     (choices install_there_button (new_dir_button dirname))
  81.                     (default 0)
  82.                     (help @askchoice-help)
  83.                     )
  84.             )
  85.  
  86.             (set target (tackon target dirname))
  87.     )
  88.  
  89.     (set target (tackon target dirname))
  90. )
  91.  
  92. (set @default-dest target)
  93.  
  94.  
  95. ; - - - - Check if there is another version present - - - -
  96.  
  97.  
  98. (set exec (tackon target execname))
  99.  
  100. (if (exists exec)
  101.     (
  102.         (set old_vernum (getversion exec))
  103.         (set old_ver (/ old_vernum 65536))
  104.         (set old_rev (- old_vernum (* old_ver 65536)))
  105.  
  106.         (if (= old_vernum new_vernum)
  107.             (
  108.                 (if (= 0 (askbool
  109.                                     (prompt (same_version_prompt old_ver old_rev))
  110.                                     (choices replace_button abort_button)
  111.                                     (default 0)
  112.                                     (help @askbool-help)
  113.                                     )
  114.                                 )
  115.                         (exit same_version_exit)
  116.                 )
  117.             )
  118.             (if (< old_vernum new_vernum)
  119.                 (if (= 0 (askbool
  120.                                     (prompt (old_version_prompt old_ver old_rev new_ver new_rev))
  121.                                     (choices replace_button abort_button)
  122.                                     (default 1)
  123.                                     (help @askbool-help)
  124.                             )
  125.                     )
  126.                     (exit old_version_exit)
  127.                 )
  128.                 (
  129.                     (message (new_version_prompt old_ver old_rev new_ver new_rev))
  130.                     (exit new_version_exit)
  131.                 )
  132.             )
  133.         )
  134.     )
  135. )
  136.  
  137. (complete 20)
  138.  
  139. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  140. ; *** BAH! and BAH!.guide ***
  141. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  142.  
  143. (copyfiles
  144.     (prompt "")
  145.     (source (tackon sourcedir ("/BAH!.info")))
  146.     (dest (pathonly target))
  147.     (help @copyfiles-help)
  148. )
  149.  
  150. (copyfiles
  151.     (prompt "")
  152.     (source sourcedir)
  153.     (choices execname ("%s.guide" execname))
  154.     (dest target)
  155.     (infos)
  156.     (help @copyfiles-help)
  157. )
  158.  
  159. (complete 40)
  160.  
  161. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  162. ; *** bgui.library ***
  163. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  164.  
  165. (copylib
  166.     (prompt bgui_msg)
  167.     (help @copylib-help)
  168.     (source (tackon (tackon sourcedir bguidir) "bgui.library"))
  169.     (dest "LIBS:")
  170.     (confirm)
  171. )
  172.  
  173. (complete 50)
  174.  
  175. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  176. ; *** Config ***
  177. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  178.  
  179. (copyfiles
  180.     (prompt "")
  181.     (source (tackon sourcedir ("%s.info" configdir)))
  182.     (dest target)
  183.     (help @copyfiles-help)
  184. )
  185.  
  186. (copyfiles
  187.     (prompt config_prompt)
  188.     (source (tackon sourcedir configdir))
  189.     (pattern ".config_#?")
  190.     (dest (tackon target configdir))
  191.     (infos)
  192.     (confirm)
  193.     (help @copyfiles-help)
  194. )
  195.  
  196. (complete 60)
  197.  
  198. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  199. ; *** Rexx ***
  200. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  201.  
  202. (copyfiles
  203.     (prompt "")
  204.     (source (tackon sourcedir ("%s.info" dir3 )))
  205.     (dest rexxdir)
  206.     (help @copyfiles-help)
  207. )
  208.  
  209. (copyfiles
  210.     (prompt config_prompt)
  211.     (source (tackon sourcedir dir3))
  212.     (pattern "#?.bed")
  213.     (dest (tackon rexxdir "BAH"))
  214.     (infos)
  215.     (confirm)
  216.     (help @copyfiles-help)
  217. )
  218.  
  219. (if (= 0 (askchoice
  220.                                 (prompt ("\nDo you want to install ARexx Macros\n"))
  221.                                 (choices "Yes" "No")
  222.                                 (default 0)
  223.                                 (help @askbool-help)
  224.                                 )
  225.                             )
  226.                         
  227. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  228. ; *** Rexx/HTML ***
  229. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  230.     (
  231.         (if 
  232.             (= 1
  233.                 (askbool
  234.                     (prompt ("\nDo you want to install HTML ARexx Macros\n"))
  235.                     (choices "Yes" "No")
  236.                     (default 1)
  237.                     (help @askbool-help)
  238.                 )
  239.             )
  240.                 (
  241.                 (copyfiles
  242.                     (prompt "")
  243.                     (source (tackon sourcedir ("%s.info" dir1 )))
  244.                     (dest rexxdir)
  245.                     (help @copyfiles-help)
  246.                 )
  247.  
  248.                 (copyfiles
  249.                     (prompt config_prompt)
  250.                     (source (tackon sourcedir dir1))
  251.                     (pattern "#?.bed")
  252.                     (dest (tackon rexxdir "HTML"))
  253.                     (infos)
  254.                     (confirm)
  255.                     (help @copyfiles-help)
  256.                 )
  257.             )
  258.         )
  259.  
  260.         (complete 70)
  261.         ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  262.         ; *** Rexx/AmigaGuide ***
  263.         ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  264.  
  265.         (if 
  266.             (= 1
  267.                 (askbool
  268.                     (prompt ("\nDo you want to install AmigaGuide ARexx Macros\n"))
  269.                     (choices "Yes" "No")
  270.                     (default 1)            
  271.                     (help @askbool-help)
  272.                 )
  273.             )
  274.             (
  275.                 (copyfiles
  276.                     (prompt "")
  277.                     (source (tackon sourcedir ("%s.info" dir2 )))
  278.                     (dest rexxdir)
  279.                     (help @copyfiles-help)
  280.                 )
  281.  
  282.                 (copyfiles
  283.                     (prompt config_prompt)
  284.                     (source (tackon sourcedir dir2))
  285.                     (pattern "#?.bed")
  286.                     (dest (tackon rexxdir "AmigaGuide"))
  287.                     (infos)
  288.                     (confirm)
  289.                     (help @copyfiles-help)
  290.                 )
  291.             )
  292.         )
  293.     )
  294. )
  295.  
  296. (complete 80)
  297.  
  298. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  299. ; *** BAH! 2.0æ ***
  300. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  301.  
  302. (if (= 1 (askbool
  303.                                 (prompt ("\nDo you want to install version 2.0æ\nwith graphics icons incorporated?\n"))
  304.                                 (choices "Yeeeees!" "No thanks")
  305.                                 (default 1)
  306.                                 (help @askbool-help)
  307.                                 )
  308.                             )
  309.  
  310.     (copyfiles
  311.         (prompt "")
  312.         (source sourcedir)
  313.         (choices "BAH!_2.0æ")
  314.         (dest target)
  315.         (infos)
  316.         (help @copyfiles-help)
  317.     )
  318. )
  319.  
  320. (complete 100)